home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / plot3d_k < prev    next >
Internet Message Format  |  1995-03-31  |  22KB
  1. From: Ketil Kintel  <KINTEL@gribb.hsr.no>
  2. Subject:  v04i042:  plot3d_kk - Plot 3d v1.0, Part01/01
  3. Newsgroups: comp.sources.hp48
  4. Followup-To: comp.sys.hp48
  5. Approved: spell@seq.uncwil.edu
  6.  
  7. Checksum: 4110323766 (verify with brik -cv)
  8. Submitted-by: Ketil Kintel  <KINTEL@gribb.hsr.no>
  9. Posting-number: Volume 4, Issue 42
  10. Archive-name: plot3d_kk/part01
  11.  
  12. BEGIN_DOC plot3d.doc
  13.  
  14. Plot-3D v1.0   Written by Ketil Kintel.
  15.  
  16. This is a simple program to draw and display 3D functions.
  17. The function MUST be without any terms of Z in it
  18. I.e: The function x^2+y^2=z^2 must be written on the form 
  19.      'SQRT(x^2+y^2)'
  20.  
  21. CREDIT
  22. Thanks to the author of Redurance Fighter, Lutz Vieweg for his
  23. great compression program ( RFU is included in this directory.
  24. Those who already are the lucky users of his procram could EVAL
  25. \<< 'RFU' PURGE \>> )
  26.  
  27.  
  28.  
  29. To enter the program menu shell, either press PL3D in the VAR
  30. menu or the CST key.
  31.  
  32. COMMAND SUMMARY:
  33.  
  34. ZAUTO
  35. This command takes a alg.object from 1: (if none, uses default 
  36. EQ) and autoscalates the Z-axis. Then jumps to DRAW.
  37.  
  38. DRAW
  39. This command takes a alg.object from 1: (if none, uses default 
  40. EQ) and draws the figure.
  41. When finished you can scroll the screen using the arrow-keys (if
  42. using a bigger  screensize than 1)
  43. Exit the program by pressing ON.
  44.  
  45. MODE
  46. This command increates the PlotMode by 1. You can also place a
  47. number on the stack and use LeftShift-MODE to go directly to
  48. that mode.
  49.         0-LINE
  50.         1-DOT
  51.         2-iMAGINARY LINE
  52.         3-    "     DOT
  53.         4-FAST LINE
  54.         5-  "  DOT
  55.         6-  "  iMAGINARY LINE
  56.         7-  "      "     DOT
  57. EXPLANATION
  58. LINE    Will draw figure as a set of squares.
  59. DOT     Figure will be plotted (a _lot_ of dots)
  60. iMAG    Also the part of a EQuation returning imaginary values
  61.         will be plotted (SQRT(-1)).
  62. FAST    No axes will be drawn. Also the squares the figure is drawn
  63.         with will only be evaluated at 4 points (instead of 8). 
  64.         The drawing will go twice as fast.
  65.  
  66. XRNG, YRNG, ZRNG (X-Range, Y-Range, Z-Range)
  67. Theese work in the same way as the built in commands. I.e. 
  68.         2: min-value
  69.         1: max-value                    XRNG
  70.  
  71. RESOL (Resolution)
  72. This command takes a number from level 1: indicating how
  73. many squares to use when drawing a figure. This number tells the
  74. plotter that the (LONGEST) side of the figure will be divided into
  75. 6 squares.
  76. I.e:    6 RESOL
  77.         The figure will be drawn of 6 X 6 (= 36 squares. If xrng=yrng).
  78.  
  79. SCR-S (Screen-size)
  80. This command takes a number from level 1: (>=1) indicating how large
  81. the screen (PICT) will be.
  82.         2 SCR-S
  83.         The PICT will be enlarged by a factor of 2 in _each direction_,
  84.         meaning that it will be 4 times greater.
  85.  
  86. CRNT (Current Settings)
  87. This command displays the current settings.
  88.  
  89. RESET
  90. This command resets the initsial settings of XRNG, YRNG, ZRNG,
  91. MODE, SCR-S and RESOL.
  92.  
  93.  
  94.  
  95. All sub-routines in this program are hidden. To wiew and hack,
  96. or whatever you like: \<< "" #5b15h SYSEVAL PURGE \>> EVAL will
  97. bring the entire program back again...
  98.  
  99.  
  100.  
  101. All suggestions, additions, corrections, insights, commentary,
  102. and criticisms are welcome.
  103.  
  104. NO WARRANTY
  105. This work is provided on an "as is" basis. I provides no
  106. warranty whatsoever, either express or implied regarding the
  107. work, including warranties with respect to its merchantability
  108. or fitness for any purpose whatsoever.
  109.  
  110. END_DOC
  111.  
  112.  
  113. BEGIN_ASC pl3d.asc
  114. %%HP: ;
  115. "69A20FF72362000000B0F434F4F42544E205C43344B077920000000000000015
  116. 00000000000000120F3000A03534253545E205C43344A0339200000000000000
  117. 010D200090F40505C4E205C4334490339200000000000000060B2000A0D4F444
  118. 5435E205C43344A0339200000000000000000D20009085D494E4E205C4334490
  119. 339200000000000000039B20009095D494E4E205C43344903392000000000000
  120. 00039B20009095D41485E205C4334490339200000000000000030B200090A5D4
  121. 94E4E205C4334490339200000000000000039B20009085D41485E205C4334490
  122. 339200000000000000030B200090A5D41485E205C43344903392000000000000
  123. 00030B20005064F40505C450D9D20E1632C2A203800025642DC00008E4D9D20E
  124. 163284E209085D41485E205C43344136294E4815990DA1E8FCF40505C7C8650F
  125. A1F1A4A05689C22C9E32B2095CB17CB193632B213084E2030256455EB3A19363
  126. 2B2130CB000704425148554352370D9D20E16322ABF1A92E1E4A205100020000
  127. 000000000004B2A23392020000000000000402D5E1A92E1E4A20510001000000
  128. 0000000004B2A23392020000000000000402D5E1893E193632B2130CA0006044
  129. 251485543560D9D20E1632C2A201E10025642043001805D9D20E16324B2A278B
  130. F184E2090A5D494E4E205C43344E97C1DB22920014858C5AC9432BC229A22634
  131. EB31865C2A209000002A59C2A2DA5E1AE8C193632B2130FD332EB3A1F17C9322
  132. 1895DF22C0107044251485543523071A8502C8101E2C30288BCEE4E1CC488F70
  133. 3D289370528ADC3064609B7C04F5021D1863CB90DA160DD166ED12FACF1AA1E6
  134. 3650F7783F18E9204300033920118EF9008F0040BB0870BC1490292D3510EDA1
  135. DB1100BF33EDA1C9432D9D20E1632A22932634E9BB8C2A209FE782959C2A2DA5
  136. E1AE8C193632B21306873EB32C922C03633410687044251485543523C30084E2
  137. 030256455EB3A193632B2130C1200403545C49440D9D20E1632C2A20F2200256
  138. 42FB3007CD9D20E163233920100847559313C11C432D6E2030665353C1161547
  139. 2C1FD3329508834563284E202054159763204B02B2130F171502B2A294C6C6DC
  140. C6B0F5BF228DBF15DF2268A534400505142AD267AD8AC9081233000728900B53
  141. 46B1A230C29B803A26C7D13CE2C22DD9AE1AFE24E324CFE0D1CB78BF168BC117
  142. 3A2396C1678C3AE41E65E6120904054B8C12A704D1B52793FD335F720C7064C4
  143. 14743545F4698C04B0C93EF1766350F3392010C09D559D6E2030665353C94D59
  144. CE1632472C193634260B3015D80DEF3EF3A1916C80314393205600085BF228DB
  145. F15DF22EF532683A2B93A20B3A26D177991919C906041344060292C1932121D4
  146. 030F06422981B9A048330C04C55C84E9363A50E84E2030256455EB3A193632B2
  147. 130662005005F494E44550D9D20E1632C2A20FB10025642E9200DFD9D20E1632
  148. 84E205064F40505C43CE2A0CDA0D4F4445435E2647E344ED2A349F5230249445
  149. F88E1AFE22C644D2A250FA1B21305DF352E9C40F48B1C432D6E2010F648D4200
  150. 747CA929095D494E734A093E116F14881AE0A1C74597228245B9C6109597632D
  151. CC0064881328118618036840028C20128803049C205415FD3324E5A1F17324B2
  152. A25DF2278BF168BC13CE22AFE22D9D20E0619288200747CC4AF1AA1ED05B2130
  153. 489127F88E1132D759733920999008C270EEDA176BA1405DB081D5BBF1E97C1A
  154. 13E13ADC2006F6083303AD55EF53293638F484E2030256455EB3A193632B2130
  155. 8F10030C4949530D9D20E1632C2A20D630025642A35000845D9D20E163284E20
  156. 5064F40505C478BF13CE2532DA0D4F4445435E205C43344ED2AF19C30249445F
  157. 88E1AFE22D22ED2A250FA1B21305DF22F9019C22D74C1C432D6E2010F6226620
  158. F623516207470C4A9085D494E6E29B9C874148BD320A1BA150587882A45D61B1
  159. 08597632DCC02801965001048C392CC93392099901051707269EEDA1ABA476BA
  160. 1E206120B23205415FD3324E5A1F17324B2A25DF2278BF13CE2268BC1AFE22D9
  161. D20445CAC262007473334F1AA15BF32498DBF15AACB2130458142965AE97C1ED
  162. 0940B0F434F4F42544E205C4334497632DCC0989A9095D494E4EE41362148581
  163. 190A13459C109724912D04109563D0E4205415FD3324E5A1F173294D5C58BF16
  164. 8BC13CE22E77C4C3458A8262007473382F1AA1720E9060C5F88E1C832BA35E43
  165. 3920999000EA70EEDA176BA313C86B28684169BBF1E97C1170F0EB0F434F4F42
  166. 544E205C4334459AC4563222D42797632DCC02E0CF3D0A4B2A2EBB3036532ABF
  167. 190DA1D13A250FA80623CA3122280427F03B21305DF22893E8EA9BFC72A8DBF1
  168. EF6E5401879B852CF8CB38E97CFF19A6021C769A20F6230833708C10F63496EF
  169. 5329363640284E2030256455EB3A193632B21302A30030C4948530D9D20E1632
  170. C2A20B630025642A35000845D9D20E163284E205064F40505C478BF13CE2532D
  171. A0D4F4445435E205C43344ED2AF19C30249445F88E1AFE22D22ED2A250FA1B21
  172. 305DF22F9019C22D74C1C432D6E2010F6226620F623516207470C4A9095D494E
  173. 6E29B9C874148BD320A1BA150597882A45D61B109597632DCC02801865001048
  174. C382CC93392099901051706669EEDA1A9AC76BA183163042205415FD3324E5A1
  175. F17324B2A25DF2278BF13CE2268BC1AFE22D9D20C4356E200747324323F1AA15
  176. BF93A48DBF1C55AB2130142864A9D5E97C19E0084B0F434F4F42544E205C4334
  177. 497632DCC0A9E99085D494E443E2116148598510A13C449108712D9421085300
  178. 64D205415FD3324E5A1F17324E595D7C8BF168BC13CE22CEC74483856A200747
  179. 322328F1AA1E7000956F88E18C2CA357530E97339209990A01E70EEDA176BAA3
  180. DE50C892BBF1E97C1C23E1E1CB0F434F4F42544E205C43344B2494563244A95E
  181. 97632DCC02E0CF7A044B2A2EBB606CA62ABF190DA1D13A250FA01D4684724440
  182. 194EEB21305DF22893E161D43BF9F548DBF1DFCCA81287271B58F19770E97CFF
  183. 22025D28FC2520F6230833F00910F6682DEF5329363C804284E2030256455EB3
  184. A193632B21300A3004005C4F44540D9D20E1632634E18B9C1339201000000000
  185. 00036090DA1ED2A250FA1DBBF133920200000000000131090DA1ED2A250FA1DB
  186. BF1ED2A2387C10F2E184E20A0D4F4445435E205C433444B2A284E20302494453
  187. CE22F88E1AFE22D9D2084E2030C4948584E2030C49495B21305BF2284E205005
  188. F494E4455DF2293632B213060100A094E4354525E205C43344A0D9D20E1632C2
  189. A205320025642D0400082BD9D20E16329C2A269112C2A20B00005415A384E202
  190. 9115B0BC176BA1424FD1000A03536275656E63796A756A339908D092E4253545
  191. E205C43344607909510000202255637F6CA0D11490F40505C48062DC84D4F444
  192. 54332030BEC70000D2C4523CE22F05319ED2AF04E30249445AFE22D9D2035E2F
  193. 0000641435450A459A0B21305DF22F2449C03DB0496D41474AF1FF2444B80DB9
  194. 2F88E13651CE81D0000C494E4545BF5B56B000044F445C9D548664411009D166
  195. 4656A3DBBF1F1268415552E8850202A302B58E265E9085DE2D63572B0BC14819
  196. 05502B301F91741487F819CD81E9641F20D56C249B191809CF3699703E001B09
  197. 68A6C24AB09105ED2A255DB1CA4B02A2B0C380C56500493632B2130784E20302
  198. 56455EB3A193632B2130872003024944530D9D20E1632EF5C11C432D6E201024
  199. D6E201075E16323392010000000000004605C5C1B9691D6E20102433032D5032
  200. D9D20BD59145632D6E20102497632AA902B2130496329C2A25C5C1BB691D6E20
  201. 10755C5C1EF53293632B2130FB000303435453047A2047A20C2A20F0000A5145
  202. 545F447A2084E20A0A5145545F4E205C43344B2130B213047A20C2A20D000044
  203. 25147547A2084E204005C43344B2130B213047A20C2A20F0000D4F444543547A
  204. 2084E20C0D4F44454355445E205C43344D9D20E16324563284E20A0D4F444543
  205. 5E205C4334497632DCC0284E209034552525E205C4334493632B2130B2130B21
  206. 3047A20C2A20D00008525E47447A2084E20A08525E47454E205C43344B2130B2
  207. 13047A20C2A20D00009525E47447A2084E20A09525E47454E205C43344B2130B
  208. 213047A20C2A20D0000A525E47447A2084E20A0A525E47454E205C43344B2130
  209. B213047A20C2A20F0000255435F4C447A2084E20A0255435F4C4E205C43344B2
  210. 130B213047A20C2A20F0000353425D23547A2084E20C03534253594A554E205C
  211. 43344B2130B213047A20B213047A20C2A20D00003425E44547A2084E20903455
  212. 2525E205C43344B2130B213047A20B213047A20C2A20F0000255435544547A20
  213. 84E20C04454641455C445E205C43344B2130B2130B2130113009034552525E20
  214. 5C4334490D9D20E1632C2A20920003455252554E445023554454594E47435A3A
  215. 084E20A094E4354525E205C4334476BA19C2A2485A13F2A24A5A193632B2130C
  216. 8000C04454641455C445E205C43344C0D9D20E1632C2A209A10025642FC20028
  217. 41D9D20E1632C2A20720004454641455C445023554454594E47435A09C2A2485
  218. A1311008563284E20A03534253545E205C4334497632DCC024B564D48D4F4445
  219. 43796423300D50590F40505C41446040B56394885D494E69443F300154194814
  220. 83C1065169F195210CAECC32A6F2685C0950FF52E1C2A2050000E4A205100051
  221. B880A7052E25A1501A1FD332D9D2047A202982805B14D454E455615920541507
  222. 41082012914A1014005051425B21309DF0289BDF17402A8DBF1C00A3399725DF
  223. 2CA0E3455252E11B6A36301B84E2030256455EB3A193632B21300F100C035342
  224. 53594A554E205C43344C0D9D20E16324563284E20A03534253545E205C433449
  225. 7632DCC0284E209034552525E205C4334493632B213037000A0255435F4C4E20
  226. 5C43344A0D9D20E16323CE2278BF14B2A2D5CE1AFE22D9D204563284E2090F40
  227. 505C4E205C4334497632DCC0284E209034552525E205C43344B21305BF22D9D2
  228. 0C2A2072000255435F4C4554594F4E402542525F425A09C2A2485A19C2A24A5A
  229. 13392030000000000005103392099900000000000104C5A1B21305DF2293632B
  230. 213031100A0A525E47454E205C43344A0D9D20E16324563284E2090A5D41485E
  231. 205C4334497632DCC024563284E2090A5D494E4E205C4334497632DCC0284E20
  232. 9034552525E205C4334493632B213059000A09525E47454E205C43344A0D9D20
  233. E16324563284E209095D41485E205C4334497632DCC024563284E209095D494E
  234. 4E205C4334497632DCC0284E209034552525E205C4334493632B213059000A08
  235. 525E47454E205C43344A0D9D20E16324563284E209085D41485E205C43344976
  236. 32DCC024563284E209085D494E4E205C4334497632DCC0284E209034552525E2
  237. 05C4334493632B213059000C0D4F44454355445E205C43344C0D9D20E1632456
  238. 3284E20A0D4F4445435E205C43344976324F8023CE22743A2D5CE1AFE22D9D20
  239. 4B2A24563284E20A0D4F4445435E205C4334497632DCC02B21305DF2284E2090
  240. 34552525E205C4334493632B21305C0004005C4334440D9D20E1632C2A205920
  241. 025642554003827D9D20E1632858A184E20403545C494C2A2033000B494E4455
  242. 4C4F73344F705C4F445455425F76713E203A0D8100CA094E4354525E205C4334
  243. 476BA19C2A2485A1E4A205100C511F78BF1339202852E131DED3353425354672
  244. 5EEDA15C41DBE300EA444643D792102E192499085DEF1B93C8249A003E211089
  245. 99363C059C4ED11A5F00294808E97C411DCF1487E5510C0709A38AE005510B4A
  246. 696A445632C00D10859763F990F40505CCEAF155894EC0000A94E907D2A250FC
  247. 102A400B1C6600863F500C9432D9D20E1632166E193632B2130862494B72743A
  248. 23810DE5A4005051421125DCC023CE278B6A0D4F4445431F38E0327F3C302494
  249. 45F88E1AFC685604425148554355DFDBA54005C4F44530507064C414743545F4
  250. 350D8BF104B02F76C1EFE0233920300040442025E3899929D504C5A147A20B21
  251. 300F2E193632E000084E2030256455EB3A193632B2130CC200A0A5145545F4E2
  252. 05C43344A0D9D20E1632C2A2033200256428630008A0D9D20E1632C2A20D2000
  253. 02145545F4353414C494E47402A5D214859435A09C2A2485A184E20403545C49
  254. 4FDAA178BF198599A145632710C90A5D41485E205C4334497632DCC02482F409
  255. 4E4319861E85064F40505C4ED2A2EED220BA0D4F44454360871DC2A6DCC30249
  256. 4451C432D6E2010F622D407E1D0808C233C8001B3E0A19A1B238786349F01E91
  257. 1F3A8974A544532D6108597632DCC05C0220809790098049C205415FD3324E5A
  258. 1F17324B2A25DF223CE2278BF168BC1AFE22D9D208163828807DBC0F1AA15BF6
  259. 8258DBF13992B2130E4061935011494F38414AD742D5CEEE2C26AD0038610E66
  260. 0D32C18994E46C13EBB6503118812C8B7EED6E2010F60833220D0418DBA40DAA
  261. 0F5329363C9484E2030256455EB3A193632B2130672000069A20FF700000F000
  262. 040050514254047A207792000000000000001591000000000001019779200000
  263. 000000000150100000000000711084E201085339200000000000000060779200
  264. 0000000000000000000000000000000D9D20E1632166E193632B213084E20109
  265. 5B21305C000109510339200000000000000030B1000108510339200000000000
  266. 000030B1000205415208BA2084E201095624B184E201085624B190DA1B213033
  267. 0008005C43344D454E45580D9D20E16329C2A26911293632B213023000302564
  268. 5530D9D202BA81CCD20562008FB97608FE31608F2D76014713514334C2A208A6
  269. 6217414334F00008B24117414334256428A2606CF11748F60860143174E25606
  270. 8D1818FA945F13706D6068F8DA601F975071471351361451350781AF0A0781AF
  271. 0B741084A8F2D760142164808C81AF1B134AB3A2F53132007AA714EAE7161A67
  272. 46063903140791196C6531507C01968D031F1A6A6F3031E514A1590160170A6E
  273. 5FE81AF1234F5000EA4118A80081AF02658F6EF0AE8A6D14E15D0160170A6D5F
  274. E81AF1AE24AD8AA0081AF0A3120798096C0131407C7081860781860381AF0031
  275. 70726013681AF0B81A618AE5E4137135E2134A6D14E15D0160170A6D5FE81AF1
  276. A81AF10E24A18AA0081AF0A81AF1B13465CE6E30AE5D0A64A2F53132007AA714
  277. EAE7161A67550B64A6D59D0134BBF406A00347AC810684A8F2D76001B2130AE0
  278. 1"
  279. END_ASC
  280.  
  281. BYTES: #10EAh 5214.5
  282.  
  283. BEGIN_UU pl3d.uue
  284. begin 600 pl3d
  285. M2%!(4#0X+466*O!_,B8````+3T-/3U)$+E!,,T0+=RD`````````40``````
  286. M```A\`,`"E-#4E-4+E!,,T0*,RD`````````$-`"``E/4%!,+E!,,T0),RD`
  287. M````````8+`"``I-3T1%4RY03#-$"C,I``````````#0`@`)6$U)3BY03#-$
  288. M"3,I`````````#"Y`@`)64U)3BY03#-$"3,I`````````#"Y`@`)64U!6"Y0
  289. M3#-$"3,I`````````#"P`@`)6DU)3BY03#-$"3,I`````````#"Y`@`)6$U!
  290. M6"Y03#-$"3,I`````````#"P`@`)6DU!6"Y03#-$"3,I`````````#"P`@`%
  291. M1D]04$P%G2W@82,L*C`(`%)&T@P`@$Z=+>!A(T@ND(#5%(3E`L4T0Q1CDN2$
  292. M49G0&H[/3U!0?(Q6\!H?2@IEF"S"Z2,KD,4;QQLY-K(2`T@N,"!E5.4[&CDV
  293. MLA(#O`!P0"05A%4T)7/0V0(>-B*Z'YKBX:0"%0`@`````````$`K*C,I(```
  294. M`````$`@71Z:XN&D`A4`$`````````!`*RHS*2````````!`(%T>F..18R,K
  295. M,<`*``9$4D%815,&G2W@82,L*A`>`%)&`C0`@5"=+>!A([2B<K@?2"Z0H-64
  296. MY.0"Q31#Y'D<O2(I`$%8R*6<-+(LDBIB0[X3:,6B`@D``**5+"JMY:&.'#DV
  297. MLA(#WS/B.QH?QSDB@5G](@P!!T1205A%4S)PH5@@C`'AP@."N.Q.'LR$^`?3
  298. M@CD'):C-`T8&N<=`7R#1@3:\":UAT!UFWB&O_*$:;F,%?X?S@9X"-``PDP(1
  299. MZ)\`^``$NX`'RT$)DM)3`=X:O1$`^S/>&IPTTMD"'C:B(CEB0YZ[R*("^7XH
  300. M6<FBTEH>ZLB18R,K,6!XXSO"*<(P-D,!A@=$4D%815,R/`!(+C`@953E.QHY
  301. M-K(2`QP"0#!%Q91$T-D"'C;"H@(O`B!E)+\#<-S9`AXV,I,"`8!T53DQ',$T
  302. MTN8"`V8U-1QA473"\3TC68`X5#:"Y`("15%Y-@*T("LQ\'%1("LJ26QLS6P+
  303. M7_LBV/M1_2*&6D,$4%!!HBUVVJB<@"$S`'""";`U9!LJ`RRY"*-B?!W#+BS2
  304. MG>JA[T(^0OP.';R'^V&X''&C,FD<=LBC3N%6;B&00%"TR"%Z0!U;<CG?,_4G
  305. MP`=&3$%'4U1/ELA`"YSC'V<V!3^3`@$,V579Y@(#9C4UG-25[&$C=,*18T-B
  306. ML`-1C=#^XS\:&<8($S0Y`F4`@+4O@KT?U2_B7R.&H[(Y*K"C8AUWF9&1G&!`
  307. M,41@("D<.1(233#P8"22&)L*A#/`0%S%2)YCHP6.Y`(#4D95OJ.18R,K,6`F
  308. M``503TE.5`6=+>!A(RPJ\!L`4D;B*0#]G2W@82-(+E!@]`0%Q33LHL"MT/1$
  309. M5#3E8G0^1-ZB0_DE`T))5(_HH>\B;$0M*@6OL1(#U3\EGDSPA!M,(VTN$/!&
  310. MV"0`1\>:DI#5E.0WI)#C$?9!B*$.&GQ4>2(H5)ML`5EY-M+,`$:(,8(1:($P
  311. MA@0@R`(AB#!`R0)%4=\S0EX:'S="*RK5+W*X'X;+,>PB^B[2V0(.%BF(`G!T
  312. MS*0?JN$-M1(#A!ERC^@1(WV5-Y,"F0F`+`?NK7&V&@35"QA=NQ^>QZ$Q'J/-
  313. M`F!O@#,PVE7^-9)C@T](+C`@953E.QHY-K(2`_@!,,"4E#70V0(>-L*B`FT#
  314. M(&4D.@4`2-79`AXV@N0"!49/4%!,A_LQ[%(CK=#T1%0TY0+%-$/D+?J1/""4
  315. M1/6('OHNTB+>HE+P&BLQ4/TBGQ#)(GW$P332Y@(!;R)F`F\R%29P=,"D"5A-
  316. M26XNN<EX%(3;(Z"Q&@6%ARA*U18;@)5G(\T,@A!I!1!`R)/"G#,ID)D04'%P
  317. M8NG>&KI*9ZOA`A8"*R-0%/4](^2E\7$CM*)2_2*'^S'L(H;+H>\BG2U`5*PL
  318. M)@!'-S/TH1JU/T*)O1^ERBLQ0(5!DE;J>1S>D`0+3T-/3U)$+E!,,T1Y-M+,
  319. MD)B:D-64Y.1.,29!6!B1H#%4R0%Y0AG20`%9-@U.`D51WS-"7AH?-Y+4Q87[
  320. M8;@<PR[B=TP\5*@H)@!'-X/RH1HGX`D&7(_HP3BR.N4TDP*9"0"N!^ZM<;8Z
  321. M,8RV@H84EKL?GL<1!P^^\#3T]"1%Y`+%-$-4J4QE(R)-<GDVTLP@#OS3H+2B
  322. MXKL#8S6B^Y'0&AVC4O"*8#*L$R*"0'(/LQ(#U2^".8ZNN<\GBKT?_N9%$'BY
  323. M6,*/O(.>Q_^1:B#!9ZD";S*`,P?(`6]#:?XUDF-C!(+D`@-21E6^HY%C(RLQ
  324. M(#H``TQ)6`.=+>!A(RPJL#8`4D:B4P"`5)TMX&$C2"Y08/0$!<5TN!_#+C72
  325. M"DU/1$53+E!,,T3>HA_)`T))5(_HH>\B+>(M*@6OL1(#U2_R"9$LTD<<3"-M
  326. M+A#P)F(F\"9380)'!TR:D-64Y.:2FXQ'0;@]`AJK45!YB*)4;;$!67DVTLP@
  327. M"(%6``&$/"C,.9,"F0D!%0=FENZMH:E\MAHX80,D`D51WS-"7AH?-T(K*M4O
  328. M<K@?PRYBN!SZ+M+9`DQ3Y@)P=",T,A^J4?LY2MC[P56Z$@-!@D::79['D0Z`
  329. MM/`T]/0D1>0"Q31#E&<CS0R:G@E834E.-"X1%H256`$:PT09@!?221*`-0!&
  330. M+5`4]3TCY*7Q<2/DE=7'N!^&RS'L(NQ\1#A8I@)P=",R@A^JX0<`6?:('LC"
  331. M.G4UX'DS*9"9H!!^X-X:9ZLZ[06,*;L?GL?!,AX>O/`T]/0D1>0"Q31#M$))
  332. M92-$FN5Y-M+,(`[\IT"THN*[!L9JHON1T!H=HU+P"M%D2"=$!)'DOA(#U2^"
  333. M.1X63;.?7X2]'_W,BB%X<K&%'WD'GL?_(B#5@L]2`F\R@#,/D`%OAM+^-9)C
  334. MPP@D2"XP(&54Y3L:.3:R$@.@`T``Q?1$1=#9`AXV8D,>N,DQDP(!```````P
  335. M!@FMX2TJ!:_1NQ\S*2```````!`3D-`:WJ)2\!J]^^$M*H/'`2\>2"Z@T/1$
  336. M5#3E`L4T0T0K*D@N,""41#7L(H_HH>\BG2V`Y`(#3$E82"XPP)24M1(#M2^"
  337. MY`(%4$])3E35+Y)C(RLQ8!``"DE.4U12+E!,,T0*G2W@82,L*E`C`%)&TD``
  338. M@+*=+>!A(\FB8ADA+"JP``!%43I(+B`940O+<;8:)/0=`*`P-2975N8VEZ97
  339. MIC.9@`TI3E)35"Y03#-$!I>0%0```B)5-O?&"AU!"4]04$P()LU(34]$13,"
  340. M`^M\```M3"7#+O)0$^DM^D`^()1$I>\BG2TPY?(``$9!4U2@5*FP$@/5+_)"
  341. ME`S3"Y36%'2D'_]"1(O0F_*('F,5[!@-`,"4Y%14^[5E"P!`]$3%V45H1A0!
  342. MD!UF9&4ZO?OQ(884526.6"`@.B!;Z&+E"5CMTC9ULK`<A)%0!;(#\1E'07B/
  343. MD=P8GD;Q`EW&0KF1@9#\8YD'XP"QD(9J+*0+&5#>HE+5&ZRT("H+/`A<5@"4
  344. M8R,K,7!(+C`@953E.QHY-K(2`W@",""41#70V0(>-N)?',$TTN8"`4)M+A!P
  345. MY6$C,RD0````````9%!<')N6T>8"`4(S,-(%(YTML%T95#;2Y@(!0GDVHIH@
  346. M*S%`:2/)HE)<'+N6T>8"`5?%Q>%?(SDVLA(#OP`P,#1%-4"G`G0JP*("#P"@
  347. M%51%]42G`D@NH*`55$7UY`+%-$.T$@,K,4"G`BPJT```1%)!5W0J@.0"!%!,
  348. M,T0K,;`2`W0JP*("#P#0]$14-$6G`D@NP-#T1%0T543E`L4T0]39`AXV0F4C
  349. M2"Z@T/1$5#3E`L4T0Y1G(\T,@N0""4-54E(N4$PS1#DVLA(#*S&P$@-T*L"B
  350. M`@T`@"7E=$2G`D@NH(`EY714Y`+%-$.T$@,K,4"G`BPJT```65).1W0J@.0"
  351. M"EE23D=%+E!,,T0K,;`2`W0JP*("#0"@)>5T1*<"2"Z@H"7E=%3D`L4T0[02
  352. M`RLQ0*<"+"KP``!215-/3'0J@.0""E)%4T],+E!,,T0K,;`2`W0JP*("#P`P
  353. M-235,D6G`D@NP#`U)#65I%7D`L4T0[02`RLQ0*<"*S%`IP(L*M```$-23E1T
  354. M*H#D`@E#55)2+E!,,T0K,;`2`W0JL!(#="K`H@(/`"!5-%5$1:<"2"[`0%1D
  355. M%%3%1.4"Q31#M!(#*S&P$@,1`Y`P5"4EY0+%-$.4T-D"'C;"H@(I`#!4)255
  356. MY$0%,E5$197D=#2EHX#D`@I)3E-44BY03#-$9ZN1+"J$I3$O*J2ED6,C*S'`
  357. M"``,1$5&055,5"Y03#-$#)TMX&$C+"J0&@!21O(L`((4G2W@82,L*G`"`$1%
  358. M1D%53%0@4T545$E.1U,*R:)"6!H3`8!E(T@NH#`U)#5%Y0+%-$.49R/-#$);
  359. M1DW8]$14-)=&,@/0!97P!`7%%$0&!%LV28C5E.261/,#$$61A$$X'&`5EA]9
  360. M$L#JS"-J+X;%D`7_)1XL*E```$XJ4`$`%8L(>E#B4AH%H?$](YTM0*<"DB@(
  361. MM4%-14Y5%I4"15%P%(`"(1FD`4$`!14DM1(#V0^"N?UQ!*+8^\$`.I-Y4OW"
  362. M"CY4)24>L:9C`[%(+C`@953E.QHY-K(2`_`!P#`U)#65I%7D`L4T0\30V0(>
  363. M-D)E(T@NH#`U)#5%Y0+%-$.49R/-#(+D`@E#55)2+E!,,T0Y-K(2`W,`H"!5
  364. M-/7$Y`+%-$.DT-D"'C8R["*'^T$K*EWLH>\BG2U`92-(+I#P!`7%Y`+%-$.4
  365. M9R/-#(+D`@E#55)2+E!,,T0K,5#[(ITMP*(")P`@533UQ%1%E?3D!%(D)?4D
  366. MI9`L*H2ED2PJI*4QDP(#``````!0`3,ID)D``````!!`7!HK,5#](CDVLA(#
  367. M$P&@H"7E=%3D`L4T0Z30V0(>-D)E(T@ND*#5%(3E`L4T0Y1G(\T,0F4C2"Z0
  368. MH-64Y.0"Q31#E&<CS0R"Y`()0U524BY03#-$.3:R$@.5`*"0)>5T5.0"Q31#
  369. MI-#9`AXV0F4C2"Z0D-44A.4"Q31#E&<CS0Q"92-(+I"0U93DY`+%-$.49R/-
  370. M#(+D`@E#55)2+E!,,T0Y-K(2`Y4`H(`EY714Y`+%-$.DT-D"'C9"92-(+I"`
  371. MU12$Y0+%-$.49R/-#$)E(T@ND(#5E.3D`L4T0Y1G(\T,@N0""4-54E(N4$PS
  372. M1#DVLA(#E0#`T/1$5#151.4"Q31#Q-#9`AXV0F4C2"Z@T/1$5#3E`L4T0Y1G
  373. M(_0(,NPB1Z/2Q1[Z+M+9`K2B0F4C2"Z@T/1$5#3E`L4T0Y1G(\T,LA(#U2^"
  374. MY`()0U524BY03#-$.3:R$@/%`$``Q31#1-#9`AXVPJ("E0(@9215!#`HU]D"
  375. M'C:"A1I(+D`P1<64Q*(",P"PE.1$5<3T-T/T!\7T1$55)/5G%^,"H]`8`*R0
  376. MY#1%)>4"Q31#=+8:R:)"6!I.*E`!P!7QA_LQDP*")1X3[3U30U)39"?EWAK%
  377. M%+T^`*Y$9#1]*0'BD4*9@-7^L3F,0JD`XQ(!F)ECPU#)Y!VA]0"2A(">QQ31
  378. M_$%X7A7`<)`ZJ`Y0%;"DEJ9$92,,T`%8>3:?"4]04,RN'U68Y`P`H$F><"TJ
  379. M!<\!H@2PP68`:/,%P$DCG2W@82-AYI%C(RLQ@":4M"='HS(8T%Y*``45)!%2
  380. MS0PR['*XIM#T1%0T\8,.(_?#`T))5(_HH<^&94`D%815-%7]O5H$4$Q/5`,%
  381. M!T9,04=35$]3T+@?0`OR9QS^#C*3`@,`!$0"4CZ8F9)=0%P:="JP$@/PXI%C
  382. M(PX`@.0"`U)&5;ZCD6,C*S'`+``*6D%55$\N4$PS1`J=+>!A(RPJ,",`4D:"
  383. M-@"`"ITMX&$C+"K0`@`@05543U-#04Q)3D<@6BU!6$E3"LFB0E@:2"Y`,$7%
  384. ME/2M&H?[D5B9&E0V<@&<H-44A.4"Q31#E&<CS0Q"*$^0Y#21:.%88/0$!<7D
  385. M+2KN+0*KT/1$5#0&>-$L:LT\()1$%4PC;2X0\";2!.?1@(`L,XP`L>.@D1HK
  386. M@X<VE`_A&?&CF$=:1#72%H"59R/-#,4@`@AY"9`(E"Q0%/4](^2E\7$CM*)2
  387. M_2+#+G*X'X;+H>\BG2V`88.""-?+\*$:M6\HA;T?DRDK,>`$%CD%$93T@Q2D
  388. M?21=[.["8MH`@Q;@9M`C')A)3L8QOFL%$X$8PKCGWN8"`6^`,R+00(&]2M"J
  389. M\#628\-)2"XP(&54Y3L:.3:R$@-V`@!@J0+_!P``#P!```45)$5`IP)W*0``
  390. M``````!1&0``````$!!YEP(````````0!0$``````!<!2"X0@#63`@``````
  391. M```&=RD`````````````````````T-D"'C829AXY-K(2`T@N$)"U$@/%`!"0
  392. M%3"3`@`````````#&P`0@!4PDP(``````````QL`(%`4)8"K`D@N$)!E0AM(
  393. M+A"`94(;":VQ$@,S`(``Q31#U%3D5(70V0(>-I(L*I81DF,C*S$@`P`#4D95
  394. M`YTM(*L8S"U0)@#XFV>`[Q,&^-)G$'0Q%31#+"J`:B9Q%#1##P"`*Q1Q%#1#
  395. M4D:"*@;&'W&$;X`&01-'+F5@V(&!KTGU,0?6!H:/K0;Q>047=#$58T$54W`8
  396. M^J!P&/JP1P%(BB]]!D$21@C(&/JQ,:0[*E\3(P"G>D&N?F&A=F1@DS!!<!F1
  397. MQE83!<<0:=@P\:&F]@,37D$:E1`&<:#F]8ZA'S+T!0"N%(&*`!CZ(%;XY@_J
  398. MJ-9!'M40!G&@UO6.H1_J0MJH"H"A#SHA<(F0QA`3!,<'&&AP&&@P&/H`$P<G
  399. M!C&&H0^+H1:H7DXQ%U,N,:3601[5$`9QH-;UCJ$?BJ$?X$(:J`J`H0^*H1\;
  400. M0U;LY@/JU:!&*E\3(P"G>D&N?F&A=E6P1FI=V1!#NT]@"C!TRAA@2(HO?080
  401. #*S$`
  402. `
  403. end
  404. END_UU
  405.                                                             - Ketil
  406. ===================================================================
  407. |    Ketil Kintel     | kintel@gribb.hsr.no | Ugleveien 8   R-105 |
  408. | Rogaland University | kintel@hsr.no       | 4042 HAFRSFJORD     |
  409. |       Centre        | kintel@ifi.hsr.no   | NORWAY              |
  410. ===================================================================
  411.  
  412.